#!
my $Usage = "Usage:\n\tperl copy_files.pl file_contain_list dirname\n";

if(@ARGV!=2)
{
	print $Usage;
	exit;
}

open(FILENAMES,$ARGV[0])||die"error open file:$ARGV[0]\n$!\n";
@files = <FILENAMES>;
chomp @files;
system("copy \"$_\" $ARGV[1]") foreach (@files);